home *** CD-ROM | disk | FTP | other *** search
/ The Scorpion King Cardz / The Scorpion King Cardz - Disc 2 - Cassandra.iso / pc / Cassandra.exe / Cassandra.dxr / 00001_startmovie.ls next >
Encoding:
Text File  |  2002-03-18  |  4.7 KB  |  125 lines
  1. on prepareMovie
  2.   clearGlobals()
  3.   set the stageColor to 255
  4. end
  5.  
  6. on startMovie
  7.   global gNetStatus, gAllConnections, gDefaultConnection, gActiveConnections, gConnectionStatus, gProjWinName, gUserScreensaver, gReferMovie, gTargetMovie, gUserDiskDrives, gUILanguage, gOSLanguage, gStageWidth, gStageHeight, gStageRect, gStageCenter, gDeskTopRect, gDeskTopWidth, gDeskTopHeight, gDeskTopCenter, gMaxVolLevel, gSoundCardInstalled, gCurrentMasterMute, gOrigMasterMute, gCurrentMasterVolume, gOrigMasterVolume, gCurrentWaveMute, gOrigWaveMute, gCurrentWaveVolume, gOrigWaveVolume
  8.   the alertHook = script("Alert")
  9.   set the exitLock to 1
  10.   if the platform contains "mac" then
  11.     dosRegister("2354F8E-8572C0")
  12.   else
  13.     dosRegister("6F1561B-12J0E6K")
  14.   end if
  15.   if the platform contains "mac" then
  16.     dcRegister(118506077)
  17.   else
  18.     dcRegister(151046374)
  19.   end if
  20.   gNetStatus = (the environment).internetConnected
  21.   put "gNetStatus = " & gNetStatus
  22.   gAllConnections = dcGetConnections()
  23.   put "gAllConnections = " & gAllConnections
  24.   gDefaultConnection = dcGetDefaultInternetConnection()
  25.   put "gDefaultConnection = " & gDefaultConnection
  26.   gActiveConnections = dcGetActiveConnections()
  27.   put "gActiveConnections = " & gActiveConnections
  28.   gConnectionStatus = dcGetConnectionStatus(gDefaultConnection)
  29.   put "gConnectionStatus = " & gConnectionStatus
  30.   gProjWinName = dosGetAppWindowID()
  31.   put "gProjWinName = " & gProjWinName
  32.   dosSetFrontWindow(gProjWinName)
  33.   if dosGetLastError() <> 0 then
  34.     put "windowing error:" & dosGetLastError()
  35.   end if
  36.   if the platform contains "win" then
  37.     gUserScreensaver = dosGetScreenSaver()
  38.     put "gUserScreensaver = " & gUserScreensaver
  39.     if dosGetScreenSaverActive() = 1 then
  40.       dosSetScreenSaverActive(0)
  41.     end if
  42.     dosDisableSystemKeys(1)
  43.     HideTaskBar()
  44.   end if
  45.   gReferMovie = "dumbi"
  46.   gTargetMovie = "dumbi"
  47.   gUserDiskDrives = dosGetDrives()
  48.   put "gUserDiskDrives = " & gUserDiskDrives
  49.   if dosGetLastError() <> 0 then
  50.     put "disk drive error:" & dosGetLastError()
  51.   end if
  52.   gUILanguage = (the environment).uiLanguage
  53.   put "gUILanguage = " & gUILanguage
  54.   gOSLanguage = (the environment).osLanguage
  55.   put "gOSLanguage = " & gOSLanguage
  56.   gStageWidth = 800
  57.   gStageHeight = 480
  58.   gStageRect = rect(0, 0, gStageWidth, gStageHeight)
  59.   gStageCenter = point(gStageWidth / 2, gStageHeight / 2)
  60.   gDeskTopRect = (the desktopRectList)[1]
  61.   put "gDeskTopRect = " & gDeskTopRect
  62.   gDeskTopWidth = gDeskTopRect[3] - gDeskTopRect[1]
  63.   gDeskTopHeight = gDeskTopRect[4] - gDeskTopRect[2]
  64.   gDeskTopCenter = point(gDeskTopWidth / 2, gDeskTopHeight / 2)
  65.   if (the environment).runMode = "Projector" then
  66.     ChangeDisplaySetting()
  67.   end if
  68.   if the centerStage <> 1 then
  69.     set the centerStage to 1
  70.   end if
  71.   gMaxVolLevel = 230
  72.   gSoundCardInstalled = dosIsSoundCardInstalled()
  73.   put "gSoundCardInstalled = " & gSoundCardInstalled
  74.   if gSoundCardInstalled = 1 then
  75.     gOrigMasterMute = dosGetVolume("Master Out Mute")
  76.     put "gOrigMasterMute = " & gOrigMasterMute
  77.     if gOrigMasterMute = 1 then
  78.       dosSetVolume("Master Out Mute", 0)
  79.       gCurrentMasterMute = dosGetVolume("Master Out Mute")
  80.       put "gCurrentMasterMute = " & gCurrentMasterMute
  81.       if dosGetLastError() <> 0 then
  82.         put "mute error:" & dosGetLastError()
  83.       end if
  84.     end if
  85.     gOrigMasterVolume = dosGetVolume("Master Out Volume")
  86.     put "gOrigMasterVolume = " & gOrigMasterVolume
  87.     if gOrigMasterVolume < 50000 then
  88.       dosSetVolume("Master Out Volume", 50000)
  89.       gCurrentMasterVolume = dosGetVolume("Master Out Volume")
  90.       put "gCurrentMasterVolume = " & gCurrentMasterVolume
  91.       if dosGetLastError() <> 0 then
  92.         put "volume error:" & dosGetLastError()
  93.       end if
  94.     end if
  95.     if the platform contains "win" then
  96.       gOrigWaveMute = dosGetVolume("Wave Out Mute")
  97.       put "gOrigWaveMute = " & gOrigWaveMute
  98.       if gOrigWaveMute = 1 then
  99.         dosSetVolume("Wave Out Mute", 0)
  100.         gCurrentWaveMute = dosGetVolume("Wave Out Mute")
  101.         put "gCurrentWaveMute = " & gCurrentWaveMute
  102.         if dosGetLastError() <> 0 then
  103.           put "wave mute error:" & dosGetLastError()
  104.         end if
  105.       end if
  106.       gOrigWaveVolume = dosGetVolume("Wave Out Volume")
  107.       put "gOrigWaveVolume = " & gOrigWaveVolume
  108.       if gOrigWaveVolume < 50000 then
  109.         dosSetVolume("Wave Out Volume", 50000)
  110.         gCurrentWaveVolume = dosGetVolume("Wave Out Volume")
  111.         put "gCurrentWaveVolume = " & gCurrentWaveVolume
  112.         if dosGetLastError() <> 0 then
  113.           put "volume error:" & dosGetLastError()
  114.         end if
  115.       end if
  116.     end if
  117.   end if
  118.   if updateUserIniFile() = 1 then
  119.     put "ini file updated successfully, starting card"
  120.   else
  121.     put "error updating ini file, starting card anyway"
  122.   end if
  123.   go("start")
  124. end
  125.